home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1997-07-06 | 550 b | 27 lines |
- F=1
- Extension_8_0456 "dh1:lotus1.bin",9
- Gosub DIT
- Extension_8_0456 "dh1:lotus2.bin",9
- Gosub DIT
- End
- DIT:
- ST=Start(9) : LE=Length(9)
- AD=ST
- Reserve As Work 11,300000
- Do
- AD=Hunt(AD To ST+LE,"SF")
- Exit If AD=0
- UN=Leek(AD+2) : PA=Leek(AD+6)
- If UN>0 and UN<$100000 and PA>0 and PA<$100000
- Print Hex$(AD-ST,8);" ";UN;" ";PA
- Areg(0)=AD : Areg(1)=Start(11)
- Call Start(10)
- Bsave "ram:file"+ Extension_8_0EB8(F,3),Start(11) To Start(11)+UN
- Inc F
- Add AD,PA
- Else
- ' Print Hex$(AD-ST,8)
- Add AD,2
- End If
- Loop
- Return